home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Intuition / Windows.asm < prev   
Assembly Source File  |  1991-03-13  |  3KB  |  172 lines
  1. *
  2. *    Windows.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    This file has the glue routines for the procedures and functions
  6. *    defined in Include/Intuition/Intuition.i having to do with
  7. *    Windows
  8. *
  9.  
  10.  
  11.     SECTION    PCQ_Runtime,CODE
  12.  
  13.     XREF    _p%IntuitionBase
  14.  
  15.     XDEF    _ActivateWindow
  16.     XREF    _LVOActivateWindow
  17. _ActivateWindow
  18.     move.l    4(sp),a0
  19.     move.l    _p%IntuitionBase,a6
  20.     jmp    _LVOActivateWindow(a6)
  21.  
  22.     XDEF    _BeginRefresh
  23.     XREF    _LVOBeginRefresh
  24. _BeginRefresh
  25.     move.l    4(sp),a0
  26.     move.l    _p%IntuitionBase,a6
  27.     jmp    _LVOBeginRefresh(a6)
  28.  
  29.     XDEF    _ClearPointer
  30.     XREF    _LVOClearPointer
  31. _ClearPointer
  32.     move.l    4(sp),a0
  33.     move.l    _p%IntuitionBase,a6
  34.     jmp    _LVOClearPointer(a6)
  35.  
  36.     XDEF    _CloseWindow
  37.     XREF    _LVOCloseWindow
  38. _CloseWindow
  39.     move.l    4(sp),a0
  40.     move.l    _p%IntuitionBase,a6
  41.     jmp    _LVOCloseWindow(a6)
  42.  
  43.     XDEF    _EndRefresh
  44.     XREF    _LVOEndRefresh
  45. _EndRefresh
  46.     move.w    4(sp),d0
  47.     and.l    #$F,d0
  48.     move.l    6(sp),a0
  49.     move.l    _p%IntuitionBase,a6
  50.     jmp    _LVOEndRefresh(a6)
  51.  
  52.     XDEF    _ModifyIDCMP
  53.     XREF    _LVOModifyIDCMP
  54. _ModifyIDCMP
  55.     movem.l    4(sp),d0/a0
  56.     move.l    _p%IntuitionBase,a6
  57.     jmp    _LVOModifyIDCMP(a6)
  58.  
  59.     XDEF    _MoveWindow
  60.     XREF    _LVOMoveWindow
  61. _MoveWindow
  62.     move.w    4(sp),d1
  63.     move.w    6(sp),d0
  64.     move.l    8(sp),a0
  65.     move.l    _p%IntuitionBase,a6
  66.     jmp    _LVOMoveWindow(a6)
  67.  
  68.     XDEF    _OpenWindow
  69.     XREF    _LVOOpenWindow
  70. _OpenWindow
  71.     move.l    4(sp),a0
  72.     move.l    _p%IntuitionBase,a6
  73.     jmp    _LVOOpenWindow(a6)
  74.  
  75.     XDEF    _RefreshWindowFrame
  76.     XREF    _LVORefreshWindowFrame
  77. _RefreshWindowFrame
  78.     move.l    4(sp),a0
  79.     move.l    _p%IntuitionBase,a6
  80.     jmp    _LVORefreshWindowFrame(a6)
  81.  
  82.     XDEF    _ReportMouse
  83.     XREF    _LVOReportMouse
  84. _ReportMouse
  85.     move.w    4(sp),d0
  86.     and.l    #$F,d0
  87.     move.l    6(sp),a0
  88.     move.l    _p%IntuitionBase,a6
  89.     jmp    _LVOReportMouse(a6)
  90.  
  91.     XDEF    _SetPointer
  92.     XREF    _LVOSetPointer
  93. _SetPointer
  94.     movem.l    d2/d3,-(sp)
  95.     move.w    12(sp),d3
  96.     move.w    14(sp),d2
  97.     move.w    16(sp),d1
  98.     move.w    18(sp),d0
  99.     move.l    20(sp),a1
  100.     move.l    24(sp),a0
  101.     move.l    _p%IntuitionBase,a6
  102.     jsr    _LVOSetPointer(a6)
  103.     movem.l    (sp)+,d2/d3
  104.     rts
  105.  
  106.  
  107.     XDEF    _SetWindowTitles
  108.     XREF    _LVOSetWindowTitles
  109. _SetWindowTitles
  110.     move.l    4(sp),a2
  111.     move.l    8(sp),a1
  112.     move.l    12(sp),a0
  113.     move.l    _p%IntuitionBase,a6
  114.     jmp    _LVOSetWindowTitles(a6)
  115.  
  116.     XDEF    _ShowTitle
  117.     XREF    _LVOShowTitle
  118. _ShowTitle
  119.     move.w    4(sp),d0
  120.     and.l    #$FF,d0
  121.     move.l    6(sp),a0
  122.     move.l    _p%IntuitionBase,a6
  123.     jmp    _LVOShowTitle(a6)
  124.  
  125.     XDEF    _SizeWindow
  126.     XREF    _LVOSizeWindow
  127. _SizeWindow
  128.     move.w    4(sp),d1
  129.     move.w    6(sp),d0
  130.     move.l    8(sp),a0
  131.     move.l    _p%IntuitionBase,a6
  132.     jmp    _LVOSizeWindow(a6)
  133.  
  134.     XDEF    _ViewPortAddress
  135.     XREF    _LVOViewPortAddress
  136. _ViewPortAddress
  137.     move.l    4(sp),a0
  138.     move.l    _p%IntuitionBase,a6
  139.     jmp    _LVOViewPortAddress(a6)
  140.  
  141.     XDEF    _WindowLimits
  142.     XREF    _LVOWindowLimits
  143. _WindowLimits
  144.     movem.l    d2/d3,-(sp)
  145.     move.w    12(sp),d3
  146.     move.w    14(sp),d2
  147.     move.w    16(sp),d1
  148.     move.w    18(sp),d0
  149.     move.l    20(sp),a0
  150.     move.l    _p%IntuitionBase,a6
  151.     jsr    _LVOWindowLimits(a6)
  152.     movem.l    (sp)+,d2/d3
  153.     tst.l    d0
  154.     sne    d0
  155.     rts
  156.  
  157.     XDEF    _WindowToBack
  158.     XREF    _LVOWindowToBack
  159. _WindowToBack
  160.     move.l    4(sp),a0
  161.     move.l    _p%IntuitionBase,a6
  162.     jmp    _LVOWindowToBack(a6)
  163.  
  164.     XDEF    _WindowToFront
  165.     XREF    _LVOWindowToFront
  166. _WindowToFront
  167.     move.l    4(sp),a0
  168.     move.l    _p%IntuitionBase,a6
  169.     jmp    _LVOWindowToFront(a6)
  170.  
  171.     END
  172.